home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / bcast / bcstcble / radfm.bas < prev    next >
BASIC Source File  |  1990-10-14  |  4KB  |  86 lines
  1. 10 CLS
  2. 20 CLEAR 2000
  3. 30 REM: VHF POWER DENSITY CALCULATION PROGRAM
  4. 40 REM: BASED ON POWER DENSITY CALCULATION, PG. 9 OF OST 65
  5. 50 REM: BY TERRENCE M. BAUN
  6. 60 REM: Originally written for TRS-80 III adapted for MSDOS GWBASIC 01/87
  7. 70 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:
  8. 80 PRINT "                       F.M. POWER DENSITY CALCULATION PROGRAM"
  9. 90 PRINT "                   FOR DETERMINING COMPLIANCE WITH ANSI C95.1-1982"
  10. 100 PRINT:PRINT "                                    Ver. 1.2B"
  11. 110 FOR ZZ= 1 TO 6000
  12. 120 NEXT ZZ
  13. 130 CLS:CLEAR
  14. 140 RA=0:QR$="N"
  15. 150 PRINT "This program will calculate the power density at a particular distance"
  16. 160 PRINT "from an FM broadcast array when the ERP and the distance to the desired"
  17. 170 PRINT "point from the C/R of the antenna are known."
  18. 180 PRINT
  19. 190 PRINT "          REMEMBER, THE FCC LIMIT IS 1.0 MILLIWATT/CM SQUARED."
  20. 200 PRINT
  21. 210 PRINT "Enter the ERP (in Watts) for one polarization of your antenna:" :INPUT PW
  22. 220 PRINT
  23. 230 PRINT "Enter the distance from your antenna C/R to the desired power density"
  24. 240 PRINT "location (in Meters):":INPUT DS
  25. 250 PRINT
  26. 260 DR=DS*100
  27. 270 PR=PW*2
  28. 280 S=.64*1.64*PR*1000
  29. 290 A=(DR*DR)*3.1416
  30. 300 RF=S/A
  31. 310 EG=DS*3.28
  32. 320 PRINT "   The power density for "PW "Watts at "DS "Meters ("EG"feet) at a"
  33. 330 PRINT "               vertical radiation angle of "RA" degrees is:"
  34. 340 PRINT
  35. 350 PRINT "                     "RF "MILLIWATTS/CM SQUARED."
  36. 360 PRINT
  37. 370 IF RF>1 THEN PRINT "       W A R N I N G !  ANSI LIMITS WILL BE EXCEEDED AT THIS POINT!": GOTO 390
  38. 380 PRINT "           RADIATION AT THIS POINT IS WITHIN ANSI STANDARDS."
  39. 390 IF QR$="Y" THEN GOTO 520 ELSE 400
  40. 400 PRINT
  41. 410 PRINT "NOTE: THIS PROGRAM ASSUMES 100% RADIATION IN ALL PLANES.  POWER DENSITY"
  42. 420 PRINT "CAN BE MORE PRECISELY CALCULATED FOR A PARTICULAR VERTICAL RADIATION"
  43. 430 PRINT "ANGLE IF THE ANTENNA MANUFACTURER'S VERTICAL PLANE RELATIVE FIELD DATA IS KNOWN."
  44. 440 PRINT "------------------------------------------------------------ -------------------"
  45. 450 PRINT "Do you wish to refigure using the antenna manufacturer's vertical plan radiation data? (Y/N)"
  46. 460 INPUT QR$
  47. 470 IF QR$="Y" THEN PRINT "What is the depression angle of interest? (Horizontal equals 0 degrees)" ELSE 520
  48. 480 INPUT DA: RA=DA
  49. 490 PRINT "What is the vertical plane relative field for your antenna at "DA" degrees?":INPUT FF
  50. 500 PRINT
  51. 510 RF=(RF*FF): GOTO 320
  52. 520 PRINT: PRINT "Do you wish a printed analysis? (Y/N)" : INPUT QP$
  53. 530 IF QP$="Y" THEN GOSUB 580
  54. 540 PRINT "Do you wish to calculate the power density at another point? (Y/N)": INPUT Q$
  55. 550 IF Q$="Y" THEN CLS: GOTO 230
  56. 560 PRINT "Do you wish to run this program again with all new parameters? (Y/N)" :INPUT QS$
  57. 570 IF QS$="Y" THEN CLS: GOTO 130: ELSE CLS: END
  58. 580 PRINT "Enter your call letters:":INPUT RS$
  59. 590 LPRINT:LPRINT:LPRINT "POWER DENSITY CALCULATION FOR "RS$
  60. 600 LPRINT "BASED ON 'WORST CASE' VALUES FROM OST #65"
  61. 610 LPRINT "-----------------------------------------"
  62. 620 LPRINT "A POINT THAT IS "DS "METERS ("EG "FEET) FROM THE C/R OF"
  63. 630 LPRINT "A"PW "WATT ARRAY AT A VERTICAL RADIATION ANGLE OF "RA" DEGREES IS"
  64. 640 LPRINT
  65. 650 LPRINT "========> " RF "MILLIWATT/CM SQUARED <========"
  66. 660 LPRINT
  67. 670 LPRINT "THE MAXIMUM ALLOWABLE FCC LIMIT IS 1.O MW/CM SQUARED."
  68. 680 FCC= 1!: SV=RF/FCC*100
  69. 690 LPRINT "THE EXPECTED POWER DENSITY AT "DS "METERS WILL BE "SV" % OF THE"
  70. 700 LPRINT "MAXIMUM ALLOWABLE UNDER THE RESTRICTIONS MANDATED BY ANSI C95.1-1982."
  71. 710 IF SV>100 GOTO 720 ELSE 790
  72. 720 LPRINT:LPRINT
  73. 730 LPRINT "*****************************************"
  74. 740 LPRINT "* W  A  R  N  I  N  G                  " *
  75. 750 LPRINT "*   ANSI RADIATION STANDARDS WILL BE    *"
  76. 760 LPRINT "*      EXCEEDED AT THIS DISTANCE!       *"
  77. 770 LPRINT "*****************************************"
  78. 780 LPRINT:LPRINT:LPRINT
  79. 790 RETURN
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86. 99999999999999999999999999999999999999999999999999999999999999999999999